home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Visual Basic.60 / VB98 / WIZARDS / PDWIZARD / SETUP1 / BEGIN.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1998-06-18  |  7.2 KB  |  217 lines
  1. VERSION 5.00
  2. Begin VB.Form frmBegin 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "#"
  5.    ClientHeight    =   3540
  6.    ClientLeft      =   1740
  7.    ClientTop       =   1410
  8.    ClientWidth     =   7545
  9.    BeginProperty Font 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "begin.frx":0000
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    LockControls    =   -1  'True
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   3540
  25.    ScaleWidth      =   7545
  26.    Begin VB.CommandButton cmdInstall 
  27.       Default         =   -1  'True
  28.       Height          =   1080
  29.       Left            =   330
  30.       MaskColor       =   &H0000FF00&
  31.       Picture         =   "begin.frx":0442
  32.       Style           =   1  'Graphical
  33.       TabIndex        =   0
  34.       Top             =   510
  35.       UseMaskColor    =   -1  'True
  36.       Width           =   1170
  37.    End
  38.    Begin VB.Frame fraDir 
  39.       Caption         =   "#"
  40.       BeginProperty Font 
  41.          Name            =   "MS Sans Serif"
  42.          Size            =   8.25
  43.          Charset         =   0
  44.          Weight          =   400
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       Height          =   660
  50.       Left            =   135
  51.       TabIndex        =   5
  52.       Top             =   2010
  53.       Width           =   7296
  54.       Begin VB.CommandButton cmdChDir 
  55.          Caption         =   "#"
  56.          BeginProperty Font 
  57.             Name            =   "MS Sans Serif"
  58.             Size            =   8.25
  59.             Charset         =   0
  60.             Weight          =   400
  61.             Underline       =   0   'False
  62.             Italic          =   0   'False
  63.             Strikethrough   =   0   'False
  64.          EndProperty
  65.          Height          =   390
  66.          Left            =   4890
  67.          MaskColor       =   &H00000000&
  68.          TabIndex        =   1
  69.          Top             =   195
  70.          Width           =   2310
  71.       End
  72.       Begin VB.Label lblDestDir 
  73.          Caption         =   "#"
  74.          BeginProperty Font 
  75.             Name            =   "MS Sans Serif"
  76.             Size            =   8.25
  77.             Charset         =   0
  78.             Weight          =   400
  79.             Underline       =   0   'False
  80.             Italic          =   0   'False
  81.             Strikethrough   =   0   'False
  82.          EndProperty
  83.          Height          =   240
  84.          Left            =   135
  85.          TabIndex        =   6
  86.          Top             =   300
  87.          Width           =   4440
  88.       End
  89.    End
  90.    Begin VB.CommandButton cmdExit 
  91.       Cancel          =   -1  'True
  92.       Caption         =   "#"
  93.       BeginProperty Font 
  94.          Name            =   "MS Sans Serif"
  95.          Size            =   8.25
  96.          Charset         =   0
  97.          Weight          =   400
  98.          Underline       =   0   'False
  99.          Italic          =   0   'False
  100.          Strikethrough   =   0   'False
  101.       EndProperty
  102.       Height          =   420
  103.       Left            =   2610
  104.       MaskColor       =   &H00000000&
  105.       TabIndex        =   2
  106.       Top             =   3030
  107.       Width           =   2205
  108.    End
  109.    Begin VB.Line linTopOfExitButtonIfNoDestDir 
  110.       Visible         =   0   'False
  111.       X1              =   2670
  112.       X2              =   4725
  113.       Y1              =   2280
  114.       Y2              =   2280
  115.    End
  116.    Begin VB.Label lblInstallMsg 
  117.       AutoSize        =   -1  'True
  118.       Caption         =   "*"
  119.       BeginProperty Font 
  120.          Name            =   "MS Sans Serif"
  121.          Size            =   8.25
  122.          Charset         =   0
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       Height          =   195
  129.       Left            =   1725
  130.       TabIndex        =   4
  131.       Top             =   915
  132.       Width           =   5565
  133.       WordWrap        =   -1  'True
  134.    End
  135.    Begin VB.Label lblBegin 
  136.       AutoSize        =   -1  'True
  137.       Caption         =   "#"
  138.       BeginProperty Font 
  139.          Name            =   "MS Sans Serif"
  140.          Size            =   8.25
  141.          Charset         =   0
  142.          Weight          =   400
  143.          Underline       =   0   'False
  144.          Italic          =   0   'False
  145.          Strikethrough   =   0   'False
  146.       EndProperty
  147.       Height          =   192
  148.       Left            =   288
  149.       TabIndex        =   3
  150.       Top             =   132
  151.       Width           =   6456
  152.       WordWrap        =   -1  'True
  153.    End
  154. Attribute VB_Name = "frmBegin"
  155. Attribute VB_GlobalNameSpace = False
  156. Attribute VB_Creatable = False
  157. Attribute VB_PredeclaredId = True
  158. Attribute VB_Exposed = False
  159. Option Explicit
  160. Option Compare Text
  161. ' Constants/Types for a simulated "picture button"
  162. Const x3DLineWidth = 1 '"Width" of highlight/shadow "lines"
  163. Const y3DLineWidth = x3DLineWidth
  164. Const pbXDeltaMouseDown = x3DLineWidth
  165. Const pbYDeltaMouseDown = y3DLineWidth
  166. Private fMouseDown As Boolean
  167. Private Sub cmdChDir_Click()
  168.     ShowPathDialog gstrDIR_DEST
  169.     If gfRetVal = gintRET_CONT Then
  170.         lblDestDir.Caption = gstrDestDir
  171.         cmdInstall.SetFocus
  172.     End If
  173. End Sub
  174. Private Sub cmdExit_Click()
  175.     ExitSetup Me, gintRET_EXIT
  176. End Sub
  177. Private Sub cmdInstall_Click()
  178.     If IsValidDestDir(gstrDestDir) = True Then
  179.         Unload Me
  180.         DoEvents
  181.     End If
  182. End Sub
  183. Private Sub Form_Load()
  184.     SetFormFont Me
  185.     fraDir.Caption = ResolveResString(resFRMDIRECTORY)
  186.     cmdChDir.Caption = ResolveResString(resBTNCHGDIR)
  187.     cmdExit.Caption = ResolveResString(resBTNEXIT)
  188.     lblBegin.Caption = ResolveResString(resLBLBEGIN)
  189.     cmdInstall.ToolTipText = ResolveResString(resBTNTOOLTIPBEGIN)
  190.     Caption = gstrTitle
  191.     lblInstallMsg.Caption = ResolveResString(IIf(gfForceUseDefDest, resSPECNODEST, resSPECDEST), "|1", gstrAppName)
  192.     lblDestDir.Caption = gstrDestDir
  193.     If gfForceUseDefDest Then
  194.         'We are forced to use the default destination directory, so the user
  195.         '  will not be able to change it.
  196.         fraDir.Visible = False
  197.         
  198.         'Close in the blank space on the form by moving the Exit button to where this frame
  199.         'currently is, and adjusting the size of the form respectively
  200.         Dim yAdjust As Integer
  201.         yAdjust = cmdExit.Top - linTopOfExitButtonIfNoDestDir.y1
  202.         cmdExit.Top = cmdExit.Top - yAdjust
  203.         Height = Height - yAdjust
  204.         
  205.         EtchedLine Me, fraDir.Left, cmdExit.Top - cmdExit.Height \ 2, fraDir.Width
  206.     Else
  207.         EtchedLine Me, fraDir.Left, cmdExit.Top - cmdExit.Height \ 2, fraDir.Width
  208.     End If
  209.     CenterForm Me
  210. End Sub
  211. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  212.     If UnloadMode <> 1 Then
  213.         ExitSetup Me, gintRET_EXIT
  214.         Cancel = 1
  215.     End If
  216. End Sub
  217.